10 REM PLAY COMMAND FOR C-64
20 REM SET UP MUSIC NOTE ARRAY
30 DIM H(107),L(107):S=54272
40 PRINT"WAIT...CREATING NOTE ARRAY"
50 FORX=.TO62:M=2703*(2^((X-20)/12)):IFM>65535THENM=65535
60 H(X)=INT(M/256):L(X)=M-H(X)*256:NEXT
70 PRINT"PERILS AND DANGER...."
80 M$="A6C6G6A6C6G6A4C4G4C8G8D8E6C6G6D6E6":GOSUB140
90 PRINT"THE LIGHT OF A NEW DAY...."
100 M$="Q2S2L3L2Q2S3L1M1N1O2S2Q1R2P2Y6":GOSUB140
110 END
120 REM SID STRINGSINGER SUBROUTINE
130 REM NOTES AND DURATIONS IN M$
140 FORX=.TO24:POKES+X,.:NEXT:POKES+5,4:POKES+12,4:POKES+19,4:POKES+6,241:POKES+13,241
150 POKES+20,241:POKES+4,33:POKES+11,33:POKES+19,33:POKES+24,15
160 FORN=1TOLEN(M$)STEP2:M=ASC(MID$(M$,N,1))-33:D=VAL(MID$(M$,N+1,1))
170 POKES+1,H(M):POKES,L(M):POKES+8,H(M+3):POKES+7,L(M+3)
180 POKES+15,H(M+12):POKES+14,L(M+12):FORX=.TOD*100:NEXT:NEXT
190 FORN=15TO.STEP-1:POKES+24,N:FORX=.TO50:NEXT:NEXT:RETURN